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7 ESPN 
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2 
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5 . 

6 ft 
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http://www.wapforum. 
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org/DTD/wml l.l.xml > 
<wml> 

<head> 

<meta http-equiv="Cache-ControI" content="max- 

age=l'7> 
<head> 

4MMfl 'Menu'MM^t 37 Ji 

<template> 

<do type="option" label="Menu"> 
<go href="#Home'7> 

<do> 

</template> 

<card title="First"> 

<onevent type="ontimer"> 
<go href="#Home"> 

<setvar name="vol" value="2'7> 
<setvar name="chan" value="3"/> 
<setvar name="bright" value="4"/> 
<setvar name-'cont" value="3'7> 
</go> 
</onevent> 
<timer vaIue="10"/> 
<p> 

Philips TV <br/>REMOTE CONTROL 

</P> 

</card> 

<card title="Main" id="Home"> 
<P> 



ii 



Function Select:<br/> 
<anchor title= ,, Volume , '> 

<go href="#volume , 7>VoIume 
</anchor><br/> 
<anchor title="Channel"> 

<go href="#channer'/>Channel 
</anchor><br/> 
<anchor titIe="Settings"> 

<go href="#settings'7>Settings 
</anchor><br/> 
</p> 

</card> 

<card title="Settings" id="settings"> 

<do type="accept" label=""> 
<go href="#Home"/> 

</do> 
<p> 

<anchor title="Brightness"> 

<go href= w #bright"?>Brsghtness 
</anchor><br/> 
<anchor title="Contrast"> 

<go href="#contrast'7>Contrast 
</anchor><br/> 
</p> 

</card> 

Bkjh&&7ltf}*6j&ftfo&—^*>) "remoteaction.cgi" 

# Perl ^§-~ir 

<card title="voIume" id="volume"> 

<do type="accept" label="Set"> 

<go href="remoteaction.cgi"> 

12 



<postfield name="Volume" 

value="$vol"/> 

</go> 

</do> 

5 <p align="center"> 

Volume Level $vol 

<select name="vol"> 

<option value="l">Mute</optioii> 
<option vaIue="2"x/option> 
10 <option value="3"x/option> 

<option value="4"x/option> 
<option value="5"></option> 

<option vaIue= M 6"x/option> 
<option 

15 value= w 7 w xMaximum</option> 

</se!ect> 

</p> 

</card> 

20 JIB^IS- 71. 

<card title="contrast" id="contrast"> 

<do type="accept" labeI="Set"> 

<go href="remoteaction.cgi"> 

<postfield name="contrast" 

25 value="$cont"/> 

</go> 

</do> 

<p align="center"> 
Contrast Level Scont 
30 <select name="cont"> 

<option value="l">Low</option> 
<option vaIue="2"x/option> 

13 



<option value="3"></option> 
<option value="4">Medium</option> 
<option value="5"></option> 

<option vaIue="6"x/option> 
<option value="7"x/option> 
</seIect> 

</p> 

</card> 

&m 7i. 

<card title="bright" id="bight"> 

<do type="accept" label="Set"> 

<go href="remoteaction.cgi"> 

<postf!eld name= M brightness" 

vaIue="$bright M /> 

</go> 

</do> 

<p align="center"> 
Brightness level $bright 

<select name="bright"> 

<option value="l">Low</option> 
<option value="2"x/option> 
<option value= M 3"></option> 
<option value="4">Medium</option> 
<option value="5"x/option> 

<option vaIue="6"x/option> 
<option value= w 7"x/option> 
</select> 

</p> 

</card> 

&n 71. 
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<card title="Channel" id="channel"> 

<do type="accept" labeI="Set"> 

<go href="remoteaction.cgi"> 

<postfield name="channel" 

value="$chan'7> 

</go> 

</do> 

<p align="center"> 
Channel Schan 

<select name="chan"> 

<option vaIue="l">Cable 

Index</option> 

<option value="2">Fox 2</option> 
<option va!ue="3">MSNB</option> 
<option value="4">CNN</option> 
<option value="5">ABC</option> 

<option va!ue="6">PBC</option> 
<option value="7">ESPN</option> 
</select> 

</p> 

</card> 
</wml> 
5C4f 90 *£jfL 

*f3L*Ltf}ft&&i)L, HTML-* f^&K WML 

KibHl#X-gr&& 2> 3, 5 ifc 6 t # — ^$L#U£.iil, SLft 
Vemoteaction.cgi'^b^C-^^ . Vemoteaction.cgi'A— y hi^#^E. 

@9i&^7 "remoteactionxgi" iUf 100, i£#,£j!8^i|i&& 71_h 
#Perl JfrjMfcif-i*. 100 ^|^|L^T: 
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Perl 

# ! /user/Jocal/bin/perl 

mat, &jkfr*tx>j$LM-ii 

### 

$Iogpath="wmItest.txt"; 
# 

### 
### 

$FORM{'VOLUME'}=3 
### 

read(STDIN, $buffer, $ENV{'CONTENTJLENGTH'}); 
@pairs=split(/&?, Sbuffer); 
foreach $pair(@pairs) 

{ 

(Sname, $va!ue)=split(/=/, $pair); 
#Un-Webify plus signs and %-encoding 
$value=~tr/+/; 

$value=~s/%([a-Fa-F0-9] f a-Fa-F0-9])/pack("C" , 

hex($l))/eg; 

$FORM{$name}=$vaIue; 
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} 

FORM SfL^k 4£fc4£ 

### 
### 

open(LOG, "»$logpath"); 

foreach $key(keys(%FORM)) {print LOG "$key=$FORM{$key}\n;} 

close(LOG) 

# 

### 
### 

print "Content-Type:text/vnd.wap.wml\n\n; 
print«EndWML; 

41>M*#I*#*«M$. B # iMfc*^ J* 70 71 

<?xml version= M 1.0"> 

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD 1.1//EN" 

http://www.wapforum.org/DTD/wml Ll.x mr> 
<! — Main menu for WML examples— > 
<wml> 

<head> 

<meta http-equiv="Cache-ControP' content="max- 

age=0/> 
</head> 

<card title="Action" id="Home"> 
<onevent type="onenterforward"> 
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<prev/> 
</onevent> 

<p> 
Control Set 

</p> 
</card> 

</wml> 
EndWML;" 
100 

m loi&wrm http^^., ^^^ti^m^j 

HTTP 

"GET http://tv/index.wml HTTP/1.1" 
m^^-h^ HTTP : 

"CONTENT-TYPE=Text/wml 

CONTENT-LENGTH=fiIe length of the included file 
#4fc,jMMfc3£ 56 tfit^r index.wml u 
m 11 t&W 7M HTTP ##-3^, 70 ilLtiMJMr-** 71. 

iLii«J»L**il«71, ^HTTP#-£>T: 

"POST http://tv7remoteaction.cgi HTTP/1.1 
CONTENT JTYPE=application/x-www-form-urIencoded 
CONTENT_LENGTH=9 
Channel=2" 

i&#7#ii£2.£.i&. 

^JL^B^^'fsC^PIL'f^ii^^^^flo "comprising"®* 
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